PROCESS QUERY RECORD
This subroutine potentially adds a PCF record to the result set of a query (provided the record meets the query constraints). No arguments are passed to the subroutine, and no values are returned.
The subroutine can only be invoked via GOSUB. Also, it can only be used within the Establish PCF Range event point in a query process (or in a subroutine called from that event point).
The following example processes two ranges of vendor records for query selection. Only vendors 10-19 and 1000-1999 will be selected for printing if on file and then only if they also satisfy any runtime constraints.
* Process first range of records
SET TAP VENDOR VENDOR NO = 10
BEG AT TAP VENDOR IN TAP VENDOR VENDOR NO
SET TAP VENDOR VENDOR NO = 19
END AT TAP VENDOR IN TAP VENDOR VENDOR NO
BEG READ TAP VENDOR HOLD 0 KEY IS VENDOR VENDOR NO
GOSUB --- PROCESS QUERY RECORD
END READ TAP VENDOR
* Process second range of records
SET TAP VENDOR VENDOR NO = 1000
BEG AT TAP VENDOR IN TAP VENDOR VENDOR NO
SET TAP VENDOR VENDOR NO = 1900
END AT TAP VENDOR IN TAP VENDOR VENDOR NO
BEG READ TAP VENDOR HOLD 0 KEY IS VENDOR VENDOR NO
GOSUB --- PROCESS QUERY RECORD
END READ TAP VENDOR
|